From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 1 Jun 1997 06:41:08 +0000 (+0000)
Subject: (customize-option): Renamed from custom-variable.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~80987
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=38d580786287fc8356a31df214a73cee91738c6a;p=emacs.git

(customize-option): Renamed from custom-variable.
(customize-variable): Add it as an alias.
(customize-option-other-window):
Renamed from customize-variable-other-window.
(custom-load-symbol): Search for both short and absolute
names of the library, when avoiding duplicate loading.
---

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 8c4bf9deef6..c6f35c9e754 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -740,22 +740,24 @@ are shown; the contents of those subgroups are initially hidden."
    (list (list symbol 'custom-group))
    (format "*Customize Group: %s*" (custom-unlispify-tag-name symbol))))
 
+;;;### (defalias 'customize-variable 'customize-option)
+
 ;;;###autoload
-(defun customize-variable (symbol)
-  "Customize SYMBOL, which must be a variable."
+(defun customize-option (symbol)
+  "Customize SYMBOL, which must be a user option variable."
   (interactive (custom-variable-prompt))
   (custom-buffer-create (list (list symbol 'custom-variable))
-			(format "*Customize Variable: %s*"
+			(format "*Customize Option: %s*"
 				(custom-unlispify-tag-name symbol))))
 
 ;;;###autoload
-(defun customize-variable-other-window (symbol)
-  "Customize SYMBOL, which must be a variable.
+(defun customize-option-other-window (symbol)
+  "Customize SYMBOL, which must be a user option variable.
 Show the buffer in another window, but don't select it."
   (interactive (custom-variable-prompt))
   (custom-buffer-create-other-window
    (list (list symbol 'custom-variable))
-   (format "*Customize Variable: %s*" (custom-unlispify-tag-name symbol))))
+   (format "*Customize Option: %s*" (custom-unlispify-tag-name symbol))))
 
 ;;;###autoload
 (defun customize-face (&optional symbol)
@@ -1331,6 +1333,7 @@ Change the state of this item."
 		   (require load)
 		 (error nil)))
 	      ;; Don't reload a file already loaded.
+	      ((assoc load load-history))
 	      ((assoc (locate-library load) load-history))
 	      (t
 	       (condition-case nil